Gigarom 1/Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso/FILES/HYP/E-G/Field Effects.cpt/Field Effects/stack.txt

Text File | 1989-02-26 | 6KB | 228 lines

-- stack: in
-- format: 8 (HyperCard 1)
-- flags: 0x0 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 1
-- first background id: 2803
-- card count: 2
-- first card id: 2841
-- list block id: 3518
-- print block id: 0
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 15520 bytes
-- stack block size: 5632 bytes
-- created by hypercard version: 0x00000000
-- compacted by hypercard version: 0x00000000
-- modified by hypercard version: 0x00000000
-- opened by hypercard version: 0x00000000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
on NewField
  set lockscreen to "true"
  if the optionKey = "down"
  then
  set the Style of the target to "scrolling"
else
  set the Style of the target to "rectangle"
end if
set lockscreen to "false"
if the commandKey = "up"
then
put the script of card field "rectSave" of card 1 into it
set the script of the target to it
end if
choose browse tool
end NewField
on NewButton
  if the commandKey = "up"
  then
  put the script of button "Funny" of card 1 into it
  set the script of the target to it
end if
end NewButton
on rectchange
  global bigRect
  If the commandKey = down
  then
  set the lockText of the target to "true"
  put item 2 of the rect of the target into top
  put item 3 of the rect of the target into right
  put item 4 of the rect of the target into bottom
  put item 1 of the rect of the target into left

  put item 1 of the loc of the target - left into midh
  put item 2 of the loc of the target - top into midv

  if (item 2 of the clickLoc - 15) ≤ top
  then
  if item 1 of the clickLoc ‚â• (right - 40)
  then
  put card field "rectSave" of card 1 into it
  put the name of the target into ref
  if ref contains "card field" then put the id of this card before ref
  if the rect of the target ≠ bigRect
  then
  put "no" into check
  repeat with x = 1 to the number of lines of it
    if line x of it contains ref
    then
    put ref&","&the rect of the target into line x of it
    put "yes" into check
    exit repeat
  end if
end repeat
if check = "no"
then
put return & ref&","& the rect of the target after it
end if
set the rect of the target to bigRect
else
  repeat with x = 1 to the number of lines of it
    if line x of it contains ref
    then
    set the rect of the target to item 2 to 5 of line x of it
    delete line x of it
    exit repeat
  end if
end repeat
end if
put it into card field "rectSave" of card 1
else
  repeat until the commandKey ≠ "down"
    put item 2 of the mouseLoc into newtop
    put item 1 of the mouseLoc into newleft
    set the loc of the target to midh + newleft,midv + newtop

  end repeat
end if
else
  if (item 2 of the clickLoc + 15) ‚â• bottom
  then
  if item 1 of the clickLoc ‚â• (right - 40)
  then
  repeat until the commandKey ≠ "down"
    put item 1 of the mouseLoc into newright
    put item 2 of the mouseLoc into newbottom
    set the rect of the target to left,top,newright,newbottom
  end repeat
else
  if item 1 of the clickloc ≤ left + 40
  then
  hide the target
  wait until the mouseClick
  show the target
end if
end if
end if
end if
else
  if the optionKey = "down"
  then
  repeat until the optionKey = "up"
    choose field tool
    click at the mouseloc
    if the ShiftKey = "up" then DoMenu "Bring Closer"
    if the ShiftKey = "down" then DoMenu "Send Farther"
    choose browse tool
  end repeat
end if
end if
end rectchange
on buttonmove
  if the commandKey = "down"
  then
  repeat until the commandkey = "up"
    set the loc of the target to the mouseloc
  end repeat
end if
if the optionkey = "down"
then
choose button tool
click at the loc of the target
repeat until the optionKey ≠ "down"
  if the ShiftKey = "down" then DoMenu "Send Farther"
  else DoMenu "Bring Closer"
end repeat
choose browse tool
else
  if the ShiftKey = "down"
  then
  hide the target
  wait until the mouseClick
  show the target
end if
end if
end buttonmove


on closeField
  global bigRect
  if the rect of the target = bigRect
  then
  set lockScreen to true
  put card field "rectSave"of card 1 into it
  put the name of the target into ref
  if ref contains "card field" then put the id of this card before ref

  repeat with x = 1 to the number of lines of it
    if line x of it contains ref
    then
    set the rect of the target to item 2 to 5 of line x of it
    exit repeat
  end if
end repeat
set lockScreen to false
end if
pass closeField
end closeField